home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fritz: All Fritz
/
All Fritz.zip
/
All Fritz
/
FILES
/
PROGNG_C
/
TURBOCU1.LZH
/
QMEM.C
< prev
next >
Wrap
Text File
|
1987-09-05
|
22KB
|
340 lines
/*
THE APPLICATION OF QLIB FUNCTIONS IN A MEMORY EXPLORATION TOOL
GARRY J. VASS [72307,3311]
Copyright (c), 1987, Telemacus Software Associates
This program provides enough to get QLIB registrants
started in the design and development of a memory
exploration tool. QLIB 3+ is required. With expansion,
this program should provide a much more powerful tool
than its distant ancestor, MEMWALK.COM.
QLIB registrants are urged to modify, extend, and
enhance this program and issue it (in compiled form
only) to clients, public domain, etc. The source code,
however is protected by United States Copyright law.
*/
#define return_pressed 13 /* Variables returned by */
#define up_arrow_pressed 0x0148 /* qreadkbd(). See qfocus */
#define down_arrow_pressed 0x0150 /* screens. */
#define bright_white 15 /* color attribute */
#define hexidecimal 16 /* itoa radix */
#define period 46 /* ascii "." */
/* */
typedef unsigned char qstring[79]; /* */
/* */
typedef struct qmenustructure /* Bounce bar menu struct */
{ /* */
int screen_x; /* Upper left column */
int screen_y; /* Upper row */
int menu_width; /* Menu width in columns */
int foreground; /* Foreground color */
int background; /* Background color */
int option_count; /* Total number of options */
int prior_choice; /* Choice last call */
qstring title; /* Menu title */
qstring option_text[10]; /* Option list to max of */
} qmenurecord; /* ten. */
/* */
/* */
/* */
qmenurecord mainmenu = /* Declare and initialize in*/
{ /* one step. */
24, /* column 24 */
7, /* row 7 */
30, /* 20 columns wide */
11, /* bright blue foreground */
0, /* black background */
4, /* four options (from zero) */
0, /* Never called before */
"[ MAIN MENU ]", /* Title */
"BIOS COMMUNICATION AREA", /* Option 0 */
"DOS COMMUNICATION AREA", /* Option 1 */
"HOST SIGNATURE", /* Option 2 */
"INTERRUPT VECTORS", /* Option 3 */
"QUIT/RETURN TO DOS" /* Option 4 */
}; /* */
void qpad(qstring st, int n) /* No frills padding, see */
{ /* QLIB 4 for fast function.*/
qstring temp = ""; /* */
qstring blank = " "; /* */
while(strlen(st) + strlen(temp) < n)
{
strcat(st, blank);
strcat(temp, blank);
}
strcat(temp, st);
strcpy(st, temp);
if (strlen(st) % 2 == n % 2) strcat(st, blank);
}
int qbounce_bar(qmenurecord *m) /* Returns an integer */
{ /* */
unsigned char normal; /* Normal/reverse get calcu-*/
unsigned char reverse; /* lated for convenience. */
int current_option = 0; /* */
unsigned int keyvar; /* See QLIB documentation */
/* */
/* */
qgotoxy(0, 25); /* */
normal = ((m ->background<<4) +
m ->foreground) & 127;
reverse = ((m ->foreground<<4) +
m ->background) & 127;
qdrawbox ( /* Draw a box to hold the */
m ->screen_x - 1, /* menu. */
m ->screen_y - 2, /* */
m ->screen_x + m ->menu_width + 1, /* */
m ->screen_y + m ->option_count + 2,/* */
m ->title, "", /* */
reverse, /* */
normal, /* */
normal); /* */
for (current_option=0; /* Pad the options to center*/
current_option<=m ->option_count; /* within the menu width */
++current_option) /* */
{ /* */
qpad(m ->option_text[current_option], /* */
m ->menu_width); /* */
qsnap /* Display the options */
( /* */
m ->option_text[current_option], /* */
m ->screen_x, /* */
m ->screen_y + current_option, /* */
normal /* */
); /* */
} /* */
keyvar = 0; /* */
current_option = m ->prior_choice; /* Set an initial value for */
while(keyvar != return_pressed) /* choice. */
{ /* */
qsnap /* Highlight the new option */
( /* */
m ->option_text[current_option], /* */
m ->screen_x, /* */
m ->screen_y + current_option, /* */
reverse /* */
); /* */
qturn_num_lock_off(); /* */
keyvar = qreadkbd(); /* Get the arrow key */
qsnap /* Unhighlight the old */
( /* option */
m ->option_text[current_option], /* */
m ->screen_x, /* */
m ->screen_y + current_option, /* Inc/dec according to the */
normal /* keystroke, and wrap */
); /* around if upper/lower */
/* limits are reached. */
/* */
/* */
/* */
if (keyvar == up_arrow_pressed ) --current_option;
if (keyvar == down_arrow_pressed) ++current_option;
if (current_option > m ->option_count) current_option = 0;
if (current_option < 0 ) current_option = m ->option_count;
} /* When a choice is made, */
m -> prior_choice = current_option; /* store it for next time */
return(current_option); /* and return it as the */
} /* function value. */
void qfront_zero /* For consistency and pres-*/
( /* entation, a function is */
qstring s, /* needed to normalize the */
unsigned int n /* length of strings that */
) /* contain hexidecimal */
{ /* numbers. This function */
qstring temp; /* assures that string "s" */
strrev(s); /* contains at least "n" */
while (strlen(s)< n) /* characters, adding zeros */
strcat(s, "0"); /* to the beginning of the */
strrev(s); /* string where needed. */
} /* */
void qpresent_paragraph /* This function builds and */
( /* displays a string con- */
unsigned int segloc, /* taining information about*/
unsigned int offloc, /* a single paragraph of */
unsigned int x, /* memory. The string con- */
unsigned int y /* sists of four main parts:*/
) /* 1. the segment address */
{ /* 2. the offset address */
qstring ascii_part; /* 3. the hex representa- */
qstring target_string; /* of the paragraph */
qstring temp; /* 4. the ascii representa-*/
int intvar; /* tion of the paragraph*/
/* */
strcpy /* First, set string length */
( /* to zero. */
target_string, /* */
"" /* */
); /* Load the segment address */
itoa /* into the string. */
( /* */
segloc, /* */
target_string, /* */
hexidecimal /* */
); /* */
qfront_zero /* */
( /* */
target_string, /* */
4 /* */
); /* */
strcat /* Add a colon to separate */
( /* the segment from the */
target_string, /* offset. */
":" /* */
); /* */
itoa /* Add the offset address */
( /* to the string. */
offloc, /* */
temp, /* */
hexidecimal /* */
); /* */
qfront_zero /* */
( /* */
temp, /* */
4 /* */
); /* */
strcat /* */
( /* */
target_string, /* */
temp /* */
); /* */
strcat /* Add two blanks to separ- */
( /* ate the address from the */
target_string, /* hex values. */
" " /* */
); /* */
for ( intvar=0; /* Starting at the segment: */
intvar<hexidecimal; /* offset specified, collect*/
++intvar) /* sixteen bytes. */
{ /* */
ascii_part[intvar] = /* Keep the ascii values in */
peekb /* a string. */
( /* */
segloc, /* */
offloc + intvar /* */
); /* */
itoa /* Convert the ascii values */
( /* to hex values. */
ascii_part[intvar], /* */
temp, /* */
hexidecimal /* */
); /* */
qfront_zero /* */
( /* */
temp, /* */
2 /* */
); /* */
strcat /* */
( /* */
target_string, /* */
temp /* */
); /* */
strcat /* Separate hex values with */
( /* a space. */
target_string, /* */
" " /* */
); /* */
if (ascii_part[intvar] < 32)
ascii_part[intvar] = period;
} /* */
ascii_part[hexidecimal] = 0; /* Terminate the string with*/
strcat /* a zero byte. */
( /* */
target_string, /* */
" " /* */
); /* */
strcat /* Add the ascii string to */
( /* the hex string. */
target_string, /* */
ascii_part /* */
); /* */
qsnap /* Send the string out */
( /* */
target_string, /* */
x, /* */
y, /* */
bright_white /* */
); /* */
} /* */
void qpresent_page /* This function simply */
( /* draws a box and calls */
unsigned int segment, /* the present_paragraph */
unsigned int offset, /* function sixteen times. */
qstring title /* */
) /* */
{ /* */
unsigned int p; /* */
qdrawbox /* Draw a box */
( /* */
0, /* from column 0 */
0, /* and row 0 */
79, /* to column 79 */
17, /* row 17 */
title, /* with a top title "title" */
"", /* no bottom title */
5, /* magenta box border */
115, /* blue on white title */
0 /* no bottom title */
); /* */
for ( p=0; /* Draw sixteen paragraphs */
p<hexidecimal; /* */
++p) /* */
{ /* */
qpresent_paragraph /* */
( /* */
segment, /* */
offset, /* */
1, /* */
p + 1 /* */
); /* */
offset += 0x0010; /* */
} /* */
qgotoxy(0, 25); /* Hide the cursor */
qcenter_line /* Send out a prompt */
( /* */
" Hit almost any key to continue ",
24, /* */
116 /* */
); /* */
p = qreadkbd(); /* Wait for a keystroke */
} /* */
/****************************************************************/
/* mainline starts here */
/****************************************************************/
main()
{
unsigned int user_choice = 0;
while (user_choice != mainmenu.option_count)
{
qclrscr(bright_white);
qcenter_line(" Q-MEM: a qlib product ", 0, 113);
user_choice = qbounce_bar(&mainmenu);
qclrscr(bright_white);
if (user_choice == 0)
{
qpresent_page(0x0000, 0x0400, "[ BIOS COMMUNICATION AREA ]");
}
if (user_choice == 1)
{
qpresent_page(0x0000, 0x0500, "[ DOS COMMNUNICATION AREA ]");
}
if (user_choice == 2)
{
qpresent_page(0xf000, 0xfff5, "[ HOST SIGNATURE ]");
}
if (user_choice == 3)
{
qpresent_page(0x0000, 0x0000, "[ INTERRUPT VECTORS ]");
}
}
qclrscr(bright_white);
qgotoxy(0, 24);
}
/* a zero byte. */
( /*
